01100		BEGIN "RGB2IC"
01200		INTEGER SIZX,SIZY,SIZL,PT1,OPT1,PT2,OPT2,PT3,OPT3,XPT2,
01300			HINT,INT,INT1,INT2,PT,LIN,R,G,B,R1,R2,G1,G2,B1,B2,X,Y;
01400	
01500		SIZX←RSIDE-LSIDE+1;  SIZY←LLINE-FLINE+1;  SIZL←(RSIDE-LSIDE)/9+1;
01600		OPT1←POINT(4,PICALLOC[1],35); OPT2←POINT(4,PICALLOC[2],35);
01650		OPT3←POINT(4,PICALLOC[3],35);
01700		HINT←1 LSH (4-1);
01800		FOR LIN←1 STEP 1 UNTIL SIZY DO
01900		BEGIN	PT1←OPT1;  PT2←OPT2;  PT3←OPT3;
02000			FOR PT←1 STEP 2 UNTIL SIZX DO
02100			BEGIN	R1←ILDB(PT1);  G1←ILDB(PT2);  B1←ILDB(PT3);
02200				INT1←R1+G1+B1;
02300				DPB(INT1 DIV 3,PT1);
02400				XPT2←PT2;
02500				R2←ILDB(PT1);  G2←ILDB(PT2);  B2←ILDB(PT3);
02600				INT2←R2+G2+B2;
02700				DPB(INT2 DIV 3,PT1);
02800				R←R1+R2;       G←G1+G2;       INT←INT1+INT2;
02900				X←(3*R-INT) DIV 6 + HINT;
03000				Y←(3*G-INT) DIV 6 + HINT;
03100				DPB(X,XPT2);   DPB(Y,PT2);
03200			END;
03300			OPT1←OPT1+SIZL;   OPT2←OPT2+SIZL;   OPT3←OPT3+SIZL;
03400		 END "RGB2IC";